home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 49 / Amiga Format CD49 (2000-01-17)(Future Publishing)(GB)(Track 1 of 3)[!][issue 2000-02].iso / -serious- / misc / football / user / swapresultsmode.rexx < prev    next >
OS/2 REXX Batch file  |  1999-11-29  |  1KB  |  39 lines
  1. /* Mode=Run */
  2. /* ***********************************************************************
  3.  
  4.    SWAP RESULTS MODE PROGRAM FOR FOOTBALL REXX SUITE
  5.   --------------------------------------------------
  6.                    Copyright  Mark Naughton 1999
  7.  
  8.  
  9. Version    Date     History
  10. --------------------------------------------------------------------------
  11.  
  12.  1.0       270699   Created for ease of swapping between the different
  13.                     result formats.
  14.  
  15. **************************************************************************
  16.  
  17. Procedure
  18. ---------
  19.  
  20. 1. Check existence of alternate program. If found, rename it as the default
  21.    results program, else do it the other way.
  22.  
  23. ************************************************************************** */
  24. parse arg league_file
  25.  
  26. version      = 1
  27.  
  28.  
  29. if exists("Exec/Alt_Results.rexx") > 0 then do
  30.    address command 'c:Rename Exec/Results.rexx as Exec/Old_Results.rexx'
  31.    address command 'c:Rename Exec/Alt_Results.rexx as Exec/Results.rexx'
  32. end
  33. else do
  34.    address command 'c:Rename Exec/Results.rexx as Exec/Alt_Results.rexx'
  35.    address command 'c:Rename Exec/Old_Results.rexx as Exec/Results.rexx'
  36. end
  37.  
  38. exit
  39.